home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1998 May / Macworld (1998-05).dmg / Games World / Shareware Games / Arcade / Supreme Commander / Supreme Commander.mac / 00027.ls < prev    next >
Encoding:
Text File  |  1996-01-30  |  587 b   |  26 lines
  1. on mouseDown
  2.   global GHOR, GVERT, origv, origh, puller, shaker, hole1, donothing
  3.   exit
  4.   if (the visible of sprite 48 = 1) or (donothing = 1) then
  5.     exit
  6.   else
  7.     if the puppet of sprite 24 = 1 then
  8.       puppetSprite(24, 0)
  9.       go("retract")
  10.     else
  11.       if the visible of sprite 11 = 0 then
  12.         WARNING()
  13.         exit
  14.       else
  15.         set shaker to 1
  16.         set the visible of sprite 17 to 0
  17.         set puller to the clickOn
  18.         set GHOR to the mouseH
  19.         set GVERT to the mouseV
  20.         setpoint()
  21.         whipitoutTOP()
  22.       end if
  23.     end if
  24.   end if
  25. end
  26.